home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 34
/
034.d81
/
falcon & enemy
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
5KB
|
130 lines
1 a=a+1
2 ifa=1thenload"falcon.ml1",8,1
3 ifa=2thenload"falcon.ml2",8,1
5 poke53280,0:poke53281,0:print"[147]"chr$(142)
10 gosub55
11 print"[147] press for:[146] ships time!"
12 print"(easy) f-1:[146] 50 400"
13 print" f-2:[146] 75 525"
14 print" f-3:[146] 100 600"
15 print" f-4:[146] 125 625"
16 print" f-5:[146] 150 600"
17 print" f-6:[146] 175 525"
18 print" f-7:[146] 200 400"
19 print"(hard) f-8:[146] 225 225"
20 print"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]enter f-1:[146] to f-8:[146]"
21 print"your choice is: ";
22 geta$:ifa$=""then22
23 a=asc(a$):ifa<133ora>140then22
24 ifa=133thensh=50:px=400:print" f-1 [146] ":goto32
25 ifa=137thensh=75:px=525:print" f-2 [146] ":goto32
26 ifa=134thensh=100:px=600:print" f-3 [146] ":goto32
27 ifa=138thensh=125:px=625:print" f-4 [146] ":goto32
28 ifa=135thensh=150:px=600:print" f-5 [146] ":goto32
29 ifa=139thensh=175:px=525:print" f-6 [146] ":goto32
30 ifa=136thensh=200:px=400:print" f-7 [146] ":goto32
31 ifa=140thensh=225:px=225:print" f-8 [146] "
32 poke767,sh:ford=0to700:next
33 print"please wait: the universe is being made";:ford=0to1400:next
50 print"[147]":f=peek(53278):poke49989,194:poke49994,63:goto100
55 print"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
57 fora=1to23:print"[221]"spc(38)"[221]";:next
59 print"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][157][148][192]"
60 print" loadstar presents:"
62 print" falcon and the enemy"
64 print"[150] by thomas hayes"
65 print" copyright 1987"
66 print" [154]press space [154]to continue.":poke198,.
68 geta$:ifa$<>" "then68
70 return
100 ifag=0thengosub4000
101 sys49987:pokev+21,143:forl=0topx:sysxx:poke2,(rnd(1)*15)+1
102 printal$o$;:sysxx+6:fors=0to 5:sysxx:sysxx+12:sysxx+12:sysxx+12
103 ag=0:ifpeek(198)<>0then61000
110 poke821,(rnd(1)*181)+58:poke822,(rnd(1)*159)+60:sysxx+6:sysxx+12
115 qo=peek(767):ifqo=0orqo>225then300
130 sysxx:printbl$"+"peek(767);:sysxx+6:nexts
140 sysxx:print"[157][157][157][157][157]"peek(767)-sh;:sysxx+6:sysxx:print"[157] ";g$px-l;
150 sysxx+6:sysxx:printal$i$o$;:sysxx+6:nextl:goto1000
300 gosub2000:
400 print"*****************************************";
401 print" you have saved the lives of millions *";
402 bs$="* *":printbs$bs$bs$bs$bs$;
403 print"****************************************[146]";
404 print"congratulations";:gosub3000:print
405 print"press any key for another mission"
406 print"^^^^^^^^^^^^^^^^^^^^^^^^^^^"
407 print"^[146] press space to quit ^"
408 print"^^^^^^^^^^^^^^^^^^^^^^^^^^^";:goto1060
1000 gosub2000:
1010 ri$="[159]":r$="[157][157][157][157][157][157][157][157][157]"
1020 rp$="[219][157][157][157][157][213][192][192][177][192][192][201][157][157][157][157][157][157][157][157][213][203] [202][201]":rp$=rp$+r$:
1030 rp$=rp$+"[221] [156]r.i.p.[159][221]"+r$+"[221] [221]"+r$+"[221] [221]"+r$+"[221][150]your[159] [221]"
1040 rp$=rp$+r$+"[221][150]grave[159] [221]"+r$+"[221][150]awaits[159] [221]"+r$+"[173][192][192][192][192][192][192][192][189]"
1045 printri$rp$
1050 print" you have failed! [146]":gosub3000:print" the results of"
1051 print" your efforts lie":print" to the right."
1052 print" [156][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][223][146]":print" [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][169]":gosub3000
1053 print" however [146]":gosub3000:print" the mother ship"
1054 print" was able to fight":print" off the attack."
1055 gosub3000:print" you still have":print" a chance.":gosub3000
1056 printspc(15)"if you wish":printspc(12)"another mission,"
1057 printspc(11)"[156] ":printspc(11)" [146] press any key [156] "
1058 printspc(11)" "
1059 printspc(10)"<press space to quit>"
1060 ifpeek(197)=64then1060
1061 ifpeek(197)<>60thenprint"[147]":restore:goto10
1999 goto60000
2000 poke49989,234:poke49994,49:sys49987:s=54272
2005 forl=stos+24:pokel,0:next:pokev+21,0:print"[147]":return
3000 fort=0 to 950:nextt:return
4000 print"[147]";
4010 v=53248:rem **********************
4011 poke2040,192:pokev,24:pokev+1,142:pokev+39,7:
4012 poke2041,193:pokev+2,248:pokev+3,142:pokev+40,7:
4013 poke2042,194:pokev+4,136:pokev+5,50:pokev+41,7:
4014 poke2043,195:pokev+6,136:pokev+7,229:pokev+42,7:
4015 pokev+43,5:pokev+28,192:pokev+37,2:pokev+38,7
4016 poke2046,200:poke2047,199:pokev+46,1:
4020 z$="":z1$=" [146]"
4021 z2$=" [146] [146]":z3$=" [156] [146]":z4$=" [156] [146]time![156] [146]"
4022 z5$=" [156] [146]ships[156] [146]":z6$=z3$
4023 bl$=" [157][157][157][157][157]"
4024 g$=" [157][157][157][157]":xx=49625
4025 al$=""
4026 i$="":o$="[159]a [157][157][157][157][157][157][157] l [157][157][157][157][157][157][157] i "
4027 o$=o$+"[157][157][157][157][157][157][157] v [157][157][157][157][157][157][157] e [157][157][157][157][157][157][157] ! [146]"
4050 print"[147]";z$;z1$;z$;z2$;z$;z2$;z$;z2$;z$;z3$;z$;z4$;z$;z3$;z$;z1$;z$;
4051 printz2$;z$;z2$;z$;z2$;z$;z3$;z$;z5$;z$;z3$;z$;z1$;z$;z2$;z$;z2$;z$;
4052 printz2$;z$;z2$;z$;z2$;z$;z2$;z$;z3$;z$;z6$;z$;z3$;z$;" [146]";
4053 poke2023,160:printbl$"[157][192][192][192][192][192][192][192]";:poke56295,2:
4056 print"";
4057 print"[156]any[157][157][157]key[157][157][157][157]quits"
4100 forx=55296 to 55416 step40:fora=0to30:pokex+a,1:nexta:nextx
4112 forx=56136 to 56256 step40:fora=0to30:pokex+a,1:nexta:nextx
4113 forx=55456 to 56096 step40:fora=0to5:pokex+a,1:pokex+a+25,1:next:next
4114 fory=55462 to 56102 step 40:fora=0 to 18:pokey+a,12:nexta:nexty
4115 forz=55668 to 55908 step 40:fora=0 to 6:pokez+a,11:nexta:nextz
4200 s=54272:forl=stos+24:pokel,0:nextl:pokes+24,15
4205 rem ******** voice #1 ***********
4210 pokes+5,10:pokes+6,242:pokes+1,255:
4215 rem ******** voice #2 ***********
4220 pokes+12,10:pokes+13,2:pokes+8,25:pokes+9,9:pokes+10,55
4225 rem ******** voice #3 ***********
4230 pokes+19,31:pokes+20,241:pokes+15,5:pokes+18,129
4500 return
60000 rem end
60005 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
60007 ifer<>63thenend
60010 load"hello connect",8
60020 end
60030 :
61000 rem quit?
61010 poke53248+21,0:poke54296,0
61020 print"do you want to quit (y/n)?"
61030 ifpeek(197)=64then61030
61032 q9=peek(197):poke198,0
61040 ifq9=25thenprint"[147]":goto1056
61050 ifq9=39thenag=1:print"[145][145] ":poke54296,15:goto100
61060 goto61030